Listin Gambas2

Création d'un programme en Gambas2 : un répertoire téléphonique pas à pas

Origine : http://listingambas.blogspot.com/2011/06/introducir-datos-imagen.html

Saisie de données: Image

Pour entrer une image, nous allons utiliser une boîte de dialogue. Créons une nouvelle variable globale contenant le chemin vers l'image choisie. (Ajoutons la au module var)

PUBLIC chemin_photo AS String

En cliquant sur la zone d'image, on va exécuter le code suivant: (mettre ce code dans le formulaire)

PUBLIC SUB PictureBoxPhoto_MouseDown()

'la variable Stretch controlant le redimentionnement de l'image est positionnée à true pour qu'il soit effectué

PictureBoxPhoto.Stretch = TRUE

Dialog.Title = "Selectionnez un fichier à ouvrir"

Dialog.Path = User.NAME

Dialog.Filter = ["*.jpg", "JPG", "*.png", "PNG", "*.bmp", "BMP"]

IF NOT Dialog.OpenFile() THEN

PictureBoxPhoto.Picture = Picture[Dialog.Path]

'variable globale qui contrôle le chemin vers l'image

var.Chemin_Photo =Replace$(Dialog.Path, " ", Chr$(92) & " ")

ENDIF

END

Amélioration de la version 2 : Replace$.
Cette commande remplace " " (espace) dans le nom d'un chemin par "\ " (backslash + espace) Cette forme est reconnue par linux pour les espaces entre les mots d'un nom de chemin ou de fichier.